by Jorge Rodrigues (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 18th October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Enables or not to call a spreadsheet, named Bla[month][year].xls
vinput = InputBox(UCase$("Input your ID"))
vnome = "abcd"
If vinput <> vnome Then
Inserir.Enabled = False
Inserir01.Enabled = False
End If
End Sub
Private Sub Inserir_Click()
ddefault = Year(Now())
vinput = InputBox(Prompt:="Input Year (AAAA)", Title:="Year", Default:=ddefault)
vrun = Shell("C:\Office\Microsoft Office\Office\Excel.exe", vbNormalFocus)
SendKeys ("^o"), Wait:=False
SendKeys ("C:\Program Files\Project1\Bla" & vinput & ".xls"), Wait:=False
SendKeys ("{Enter}"), Wait:=False
End Sub
No comments have been posted about Enables or not to call a spreadsheet, named Bla[month][year].xls. Why not be the first to post a comment about Enables or not to call a spreadsheet, named Bla[month][year].xls.